home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cbrg4045.lha / cybershare / CyberGfx_Install < prev    next >
Text File  |  1995-03-29  |  43KB  |  1,319 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;CyberGraphics Install By Robert Reiswig ⌐1995 If you wish to use parts
  4. ;you MUST ask!! (For use with CygerGraphics Only!)  March-27-95
  5. ;For Frank Mariak : CyberGraphics!
  6. ;
  7. ;Installer suggestions or problems: rcr@netcom.com
  8. ;Thanks to ScottE for the EGS Dirs - Thanks to Flam for Spectrum Install testing! 
  9. ;
  10. ;********************************************************************************
  11. (set #cyberver "40.45")
  12.  
  13. (message (cat "\nCyberGraphics V" #cyberver "\n~~~~~~~~~~~~~~~~~~~~\nPicasso II\n\nSpectrum\n\nPiccolo\n\nDomino\n\nRetina Z3 BLT"))
  14. (welcome)
  15.  
  16. ;******************************************************************************** 
  17. ;
  18. ; Read All System information 
  19. ;
  20. ;********************************************************************************
  21. (set #PAY 0) ; 0=NO 1=YES 
  22. (set cpu (database "cpu"))
  23. (set vblank (database "vblank"))
  24. (set graphmem (database "graphics-mem"))
  25. (set totmem (database "total-mem"))
  26. (set osver (/ (getversion "LIBS:version.library") 65536))
  27. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  28. (set fastmem (- totmem graphmem))
  29.  
  30. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  31. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  32. ( if (= osver 41) ( (set workbench "4.0")) )))))
  33.  
  34. ;(run "type >RAM:Cyber SYS:Expansion/village.library.info opt h")
  35. (set runstring (cat "search" " SYS:Expansion/village.library.info"))
  36.  
  37. (set runstring1 (cat runstring "\"R=64\""))   (if (= (run runstring1) 0) (set MonitorIS 64))      
  38. (set runstring1 (cat runstring "\"R=57\""))   (if (= (run runstring1) 0) (set MonitorIS 57))
  39. (set runstring1 (cat runstring "\"R=48\""))   (if (= (run runstring1) 0) (set MonitorIS 48))
  40. (set runstring1 (cat runstring "\"R=38\""))   (if (= (run runstring1) 0) (set MonitorIS 38))
  41. (set runstring1 (cat runstring "\"R=35\""))   (if (= (run runstring1) 0) (set MonitorIS 35))
  42. (set runstring1 (cat runstring "\"R=15\""))   (if (= (run runstring1) 0) (set MonitorIS 15))
  43. (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99))    
  44.  
  45.  
  46. (run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  47. (set runstring (cat "search" " RAM:lan "))
  48.  
  49. (set english "")  (set german  "")
  50.  
  51. (set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  52. (set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))      
  53.  
  54. (set CyberDrawer "work:")
  55. (set were "sys")
  56.  
  57.  
  58. ;******************************************************************************** 
  59. ;
  60. ;ASK DEFAULT LANG
  61. ;
  62. ;********************************************************************************
  63.  
  64.  
  65. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  66.  
  67. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  68.              (prompt #langQuestion)
  69.                      (help "Select a Language")
  70.                    (default lang)
  71.                  )
  72.           )
  73. )
  74.  
  75.  
  76.  
  77.  
  78. ;******************************************************************************** 
  79. ;
  80. ;English Information
  81. ;
  82. ;********************************************************************************
  83.  
  84.  
  85. (set #ThankYou (cat "\nWelcome to the Registered version of the Cybergraphics "
  86.                     "installer!\n\n\nTHANK YOU"
  87.                )
  88. )
  89.  
  90. (set #By (cat "Cybergraphics Release Version " #cyberver "\n"
  91.               "Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  92.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  93.               "\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  94.          )
  95. )
  96.  
  97.  
  98.  
  99.  
  100.  
  101. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  102.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  103.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  104.                     "PicassoII in linear mode *not segmented*\n\n"
  105.                     "68020 or higher\n\n"
  106.                     "2 MB of fast memory"                       
  107.                ) 
  108. )
  109.  
  110.  
  111. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  112.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  113.                     "68020 or higher, **You only have " cpu "**\n\n"
  114.                     "PicassoII in linear mode *not segmented*\n\n"
  115.                     "Kickstart 3.x\n\n"                     
  116.                     "2 MB of fast memory" 
  117.                )
  118. )  
  119.  
  120.  
  121. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  122.                    " \"" workbench "\" Version of OS\n\n"
  123.                    " \"" cpu "\" Processor\n\n "
  124.                    " \"" blank "\" Machine\n\n"
  125.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  126.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  127.               )
  128. )
  129.  
  130.  
  131. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  132.  
  133.  
  134. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  135.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  136.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  137.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  138.                           "YOU MUST DO THIS NOW!"
  139.                      )
  140. )
  141.  
  142.  
  143. (set #BackUpFiles "BackUp the Files")
  144. (set #DeleteFiles "Delete the Files")
  145. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software.")
  146.  
  147.  
  148. (set #YES-ADPRO "Yes - Install ADPro Saver")
  149. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  150. (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
  151. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  152.  
  153. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  154. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  155. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  156. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  157.  
  158. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  159. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  160. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  161. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  162.  
  163. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  164. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  165. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  166. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  167.  
  168. (set #YES-REAL "Yes - Install Real3D display module")
  169. (set #NO-REAL "No - Don't Install Real3D display module")
  170. (set #ask-REAL "Do you wish to install the Real3D display module?")
  171. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  172.  
  173. (set #YES-IFX "Yes - Install ImageFX Render module")
  174. (set #NO-IFX "No - Don't Install ImageFX Render module")
  175. (set #ask-IFX "Do you wish to install the ImageFX Render module?")
  176. (set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")")
  177.  
  178.  
  179. (set #ask-MODEFILE "Which modefile should be installed ?")
  180. (set #15KHZ "15khz maximum")
  181. (set #31KHZ "31khz maximum")
  182. (set #35KHZ "35khz maximum")
  183. (set #38KHZ "38khz maximum")
  184. (set #48KHZ "48khz maximum")
  185. (set #57KHZ "57khz maximum")
  186. (set #64KHZ "64khz maximum")
  187.  
  188.  
  189. (set #wishtoinstall "Do you wish to install any of the following?")
  190. (set #order "Order Form")
  191. (set #guide "AmigaGuide File")
  192. (set #devdocs  "Developer Documentation")
  193. (set #versions "Versions - Shows Vers of Cybergraphics") 
  194. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphics\" will be created there!)")
  195.  
  196. (set #Comming (cat "\nSoon coming feature!\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  197.                    "Application to adjust the monitor parameters"
  198.               )  
  199. )
  200.    
  201.  
  202.  
  203. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  204.                    "As a registered user, you will get the latest registered "
  205.                    "release of cybergraphics including a personalized graphics board driver.\n\n"
  206.                    "The first update of the graphics board driver is for free, any forthcoming "
  207.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  208.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  209.               )
  210. )
  211.  
  212.  
  213.  
  214. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  215.                "You can reach us at the following address:\n"
  216.                "          Frank Mariak       Thomas Sontowski        \n"
  217.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  218.                "        44135 Dortmund     51069 K÷ln            \n\n\n"
  219.                "Feel free to contact us by email or smail if you have any questions."
  220.           )
  221. )
  222.  
  223.  
  224.  
  225. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  226.                         "* In the Shareware release there are no custom modes available. "
  227.                         "In the registered version there are no limitations of this kind "
  228.                         "of course. You may define higher colordepth and refresh frequencies.\n"
  229.                         "* If you are registered we grant support if you have any problems "
  230.                         "or questions by email and/or smail. We can't do this for any person who "
  231.                         "has problems with the unregistered release !\n"
  232.                    )
  233. )
  234.  
  235.  
  236.  
  237. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  238.                   "By setting this variable, the planar-to-chunky conversion "
  239.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  240.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  241.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  242.              )
  243. )
  244.   
  245.  
  246. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  247.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  248.                      "become Hires-sprites (they are no longer doubled by "
  249.                      "the cybergraphics-Software). "
  250.                      "This variable is identical to the tooltype HIRESSPRITE "
  251.                      "of older Picasso-monitor files."
  252.                 )
  253. )
  254.   
  255.  
  256. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  257.  
  258.  
  259.  
  260. (set #board (cat "\nPlease Select the Graphics Board you wish to install Cybergraphics for:\n"))
  261.  
  262.  
  263. (set #CyberREG (cat "Do you have a Registered version of CyberGraphics installed? If you DO, the installer will NOT copy over the Monitor file! You must answer this Correctly!"))
  264. (set #firstTime "First time install")
  265. (set #PDInstalled "PD version Installed")
  266. (set #REGInstalled "Registrated version Installed")
  267.  
  268. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276. ;******************************************************************************** 
  277. ;
  278. ;German Information
  279. ;
  280. ;********************************************************************************
  281.  
  282. (if (= LAN 0)
  283. (
  284.  
  285. (set #By (cat "Cybergraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  286.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  287.               "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  288.          )
  289. )
  290.  
  291. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  292.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  293.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  294.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  295.                   "68020 oder h÷her\n\n"
  296.                   "2 MB FAST Ram"
  297.              )
  298. )
  299.  
  300. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  301.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  302.                    "68020 oder h÷her, **Sie haben nur eine " cpu "**\n\n"
  303.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  304.                    "Kickstart 3.x\n\n"
  305.                    "2 MB FAST Ram"
  306.               )
  307. )
  308.  
  309.  
  310. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  311.                    " Version \"" Workbench "\" des OS\n\n"
  312.                    " \"" cpu "\" Prozessor\n\n "
  313.                    " \"" blank "\" GerΣt\n\n"
  314.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  315.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  316.               )
  317. )
  318.  
  319.  
  320. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder l÷scht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  321.  
  322.  
  323. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  324.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  325.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  326.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  327.                           "YOU MUST DO THIS NOW!"
  328.                      )
  329. )
  330.  
  331.  
  332. (set #BackUpFiles "Sichern der alten Dateien")
  333. (set #DeleteFiles "L÷schen der alten Dateien")
  334. (set #ask-BackOrDelete "Der Installer sichert die Village Tronic Picasso II Dateien in SYS:Storage/Village oder SYS:Storage/EGS fⁿr EGS Karten. Was wollen sie tun?")
  335.  
  336.  
  337. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  338. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  339. (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
  340. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  341.  
  342.  
  343. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  344. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  345. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  346. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  347.  
  348. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  349. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  350. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  351. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  352.  
  353. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  354. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  355. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  356. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  357.  
  358.  
  359. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  360. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  361. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  362. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  363.  
  364. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  365. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  366. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  367. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  368. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  369. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  370. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  371. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  372.  
  373. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  374. (set #order "Bestellformular")
  375. (set #guide "AmigaGuide Datei")
  376. (set #devdocs  "Entwickler Dokumentation")
  377. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  378. (set #WhereStuffDir "Bitte wΣhlen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphics\" wird automatisch erstellt!)")
  379.  
  380. (set #Comming (cat "\nIn kⁿrze kommende Features:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  381.                    "* Ein Monitor Modes Edit Tool"
  382.               )  
  383. )
  384.    
  385.  
  386. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  387.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  388.             "cybergraphics mit einem auf sie pers÷nlich registrierten Grafikkarten "
  389.             "Treiber. Neu erscheinende Versionen der cybergraphics libraries "
  390.             "und tools werden weiterhin ⁿber elektronische Netze ver÷ffentlicht "
  391.             "und k÷nnen dann auch direkt von Ihnen ohne EinschrΣnkungen genutzt "
  392.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  393.             "pers÷nlich zugestellt (per smail bzw. email)\n"
  394.               )
  395. )
  396.  
  397.  
  398. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  399.                      " Bei Fragen wenden Sie sich an:\n\n"
  400.                      "     Frank Mariak       Thomas Sontowski        \n"
  401.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  402.                      "      44135 Dortmund     51069 K÷ln            \n\n\n"
  403.                      "Bei Anregungen & VerbesserungsvorschlΣge k÷nnen Sie uns gerne per Post oder email kontaktieren."
  404.                  )
  405.  
  406. )
  407.  
  408.  
  409.  
  410.  
  411. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  412.                         "* Im Shareware release sind keine Custom Modes verfⁿgbar. "
  413.                         "In der registrierten Version sind diese BeschrΣnkungen natⁿrlich nicht. "
  414.                         "Dort k÷nnen h÷here Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  415.                    )
  416. )
  417.  
  418.  
  419.  
  420. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  421.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  422.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  423.                   "Damit sind die teilweise merkwⁿrdig aussehenden "planar" Bliteffekte verschwunden, "
  424.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese M÷glichkeit aktivieren ?"
  425.              )
  426. )
  427.   
  428.  
  429. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  430.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-GerΣten "
  431.                      "zu Hires-sprites (Sie werden nicht mehr von der cybergraphics Software "
  432.                      "verdoppelt). "
  433.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  434.                      "in der alten Picasso software)."
  435.                 )
  436. )
  437.  
  438. (set #ask-driver (cat "Bitte wΣhlen Sie die zu installierenden Treiber."))
  439.  
  440.  
  441. (set #board (cat "\nBitte wΣhlen Sie die Grafikkarte, fⁿr die Cybergraphics installiert werden soll:\n"))
  442.  
  443. (set #CyberREG (cat "Haben Sie bereits eine registrierte Version von CyberGraphics installiert? Wenn das so ist, wird der Installer den Monitortreiber nicht loeschen! Sie muessen diese Frage richtig beantworten!"))
  444. (set #firstTime "Erstinstallation")
  445. (set #PDInstalled "PD Version bereits installiert")
  446. (set #REGInstalled "Registrierte Version bereits installiert")
  447.  
  448.  
  449. (set #WhereReadME "Bitte wΣhlen sie das Verzeichnis, in dem die Liesmich Datei plaziert werden soll.")
  450.  
  451.  
  452.  
  453.  
  454.  
  455. )
  456.  
  457. )
  458.  
  459.  
  460.  
  461. ;******************************************************************************** 
  462. ;
  463. ; Main Part of the Installer (Main Loop) 
  464. ;
  465. ;********************************************************************************
  466.  
  467.  
  468. (if (= #PAY 1)
  469.    (message #ThankYou)
  470. )
  471.  
  472. (message #by)
  473.  
  474. ;******************************************************************************** 
  475. ; Check CPU & OS for Right versions 
  476. ;********************************************************************************
  477. (if (< osver 39)  (abort #MinReqOS) )
  478. (if (< cpu 68020) (abort #MinReqCP) )
  479.  
  480. ;******************************************************************************** 
  481. ;
  482. ;ASK DEFAULT GFX board
  483. ;
  484. ;********************************************************************************
  485. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino" "Retina Z3 BLT"
  486.              (prompt #board)
  487.                      (help "Select a Gfx Board")
  488.                    (default 0)
  489.                  )
  490.           )
  491. )
  492.  
  493. ;******************************************************************************** 
  494. ;
  495. ;ASK if user has REG version of Cybergraphics
  496. ;
  497. ;********************************************************************************
  498. (set #REG  (askchoice (choices #firstTime #PDInstalled  #REGInstalled
  499.                          (prompt #CyberREG)
  500.                      (help "Select a Gfx Board")
  501.                    (default 1)
  502.                  )
  503.            )
  504. )
  505.  
  506.  
  507. (if (= #REG 2) (set #REG 3))
  508. (set REG# #REG)
  509.  
  510. ;******************************************************************************** 
  511. ; Warning Messages 
  512. ;********************************************************************************
  513. (message #SysInfo) 
  514. (message #WillInstall)
  515.  
  516. ;******************************************************************************** 
  517. ; Makesure the Monitor type is set to Custom fer Picasso
  518. ;********************************************************************************
  519. (if (< MonitorIS 99)
  520.  (
  521.  
  522.   (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  523.  
  524.   (if (> PicassoMonSize 25000)
  525.      (       
  526.  
  527.        (if (= board 0) 
  528.          (message #NeedChangeTool) 
  529.        )
  530.  
  531.      )
  532.   )
  533.  
  534.  )
  535. )
  536. ;******************************************************************************** 
  537. ; Ask if to backup the Current OLDER libraries 
  538. ;********************************************************************************
  539.  
  540. (if (= board 0) (set BackDirText "(SYS:Storage/Village)"))
  541. (if (= board 1) (set BackDirText "(SYS:Storage/EGS)"))
  542. (if (= board 2) (set BackDirText "(SYS:Storage/EGS)"))
  543. (if (= board 3) (set BackDirText "(SYS:Storage/Domino)"))
  544. (if (= board 4) (set BackDirText "(SYS:Storage/MacroSystemZ3)"))
  545.  
  546.  
  547. (set keep (askchoice (choices #BackUpFiles #DeleteFiles)
  548.              (prompt (cat #ask-BackOrDelete "\n" BackDirText))
  549.                      (help   #ask-BackOrDelete)
  550.                    (default 0)
  551.       )
  552. )
  553.  
  554. ;******************************************************************************** 
  555. ; If backup TRUE then move all old files to
  556. ;         "SYS:Storage/Village" or "SYS:Storage/EGS"
  557. ;********************************************************************************
  558. (if (= keep 0)
  559.  (
  560.  
  561.  
  562.  
  563.  
  564.  (if (= board 0) ; PICASSO 
  565.  
  566.   (
  567.    (if (< (exists ("SYS:Storage/Village")) 2)
  568.        (makedir ("SYS:Storage/Village") (infos)))  
  569.  
  570.    
  571.    (complete 10)
  572.    (set VillSize (getsize "Libs:vilintuisup.library"))
  573.      (if (> VillSize 14000) 
  574.         (
  575.          (if (> (exists ("libs:vilintuisup.library")) 0)
  576.             (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village"))
  577.          )
  578.         )
  579.      )
  580.  
  581.    (complete 20)
  582.    (if (> (exists ("sys:Expansion/village.library")) 0)
  583.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos))
  584.    )       
  585.  
  586.    (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  587.       
  588.    (if (< #REG 3) 
  589.      (
  590.        (complete 30) 
  591.         (if (> PicassoMonSize 25000)
  592.            ( 
  593.               (if (> (exists ("Devs:Monitors/Picasso")) 0)
  594.                   (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos))
  595.               ) 
  596.            )
  597.         )
  598.      )
  599.    )
  600.   )
  601.  )
  602.  
  603. ;******************************************************************************** 
  604. (if (= board 1) ; SPECTRUM 
  605.   (
  606.  
  607.    (if (< (exists ("SYS:Storage/EGS")) 2)
  608.        (makedir ("SYS:Storage/EGS") (infos)))  
  609.  
  610.    (complete 5)
  611.  
  612.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  613.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  614.    )
  615.  
  616.    (complete 10)
  617.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  618.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  619.    )       
  620.     
  621.    (complete 15)
  622.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  623.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  624.    )       
  625.   
  626.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  627.            (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  628.    ) 
  629.  
  630.  
  631.    (if (< #REG 3) 
  632.      (
  633.   
  634.        (complete 25) 
  635.        (if (> (exists ("Devs:Monitors/Spectrum")) 0)
  636.            (copyfiles (source "Devs:Monitors/Spectrum") (dest "SYS:Storage/EGS") (infos))
  637.        ) 
  638.      )
  639.    )
  640.  
  641.   )
  642. )
  643.   
  644.  
  645. ;******************************************************************************** 
  646. (if (= board 2) ; PICCOLO 
  647.   (
  648.  
  649.    (if (< (exists ("SYS:Storage/EGS")) 2)
  650.        (makedir ("SYS:Storage/EGS") (infos)))  
  651.  
  652.    (complete 5)
  653.  
  654.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  655.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  656.    )
  657.  
  658.    (complete 10)
  659.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  660.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  661.    )       
  662.     
  663.    (complete 15)
  664.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  665.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  666.    )       
  667.   
  668.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  669.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  670.    )
  671.  
  672.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  673.            (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  674.    ) 
  675.  
  676.  
  677.    (if (< #REG 3) 
  678.      (
  679.        (complete 25)
  680.        (if (> (exists ("devs:monitors/piccolo")) 0)
  681.            (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos))
  682.        )  
  683.       
  684.      )
  685.    )
  686.  
  687.   )
  688. )
  689.   
  690.  
  691. ;******************************************************************************** 
  692. (if (= board 3) ; DOMINO 
  693.   (
  694.  
  695.    (if (< (exists ("SYS:Storage/Domino")) 2)
  696.        (makedir ("SYS:Storage/Domino") (infos)))  
  697.  
  698.    
  699.   (if (> (exists ("SYS:Expansion/village.library")) 0)
  700.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Domino") (infos))
  701.   )   
  702.  
  703.  
  704.  
  705.    (if (< #REG 3) 
  706.      (
  707.        (complete 25)
  708.        (if (> (exists ("devs:monitors/Domino")) 0)
  709.            (copyfiles (source "devs:monitors/Domino") (dest "SYS:Storage/Domino") (infos))
  710.        )  
  711.       
  712.      )
  713.    )
  714.  
  715.   )
  716. )
  717.  
  718.  
  719. ;******************************************************************************** 
  720. (if (= board 4) ; RetinaZ3 
  721.   (
  722.  
  723.    (if (< (exists ("SYS:Storage/MacroSystemZ3")) 2)
  724.        (makedir ("SYS:Storage/MacroSystemZ3") (infos)))  
  725.  
  726.    
  727.   (if (> (exists ("Libs:retina.library")) 0)
  728.        (copyfiles (source "Libs:retina.library") (dest "SYS:Storage/MacroSystemZ3") (infos))
  729.   )
  730.  
  731.   (if (> (exists ("SYS:WBStartup/retinaemu")) 0)
  732.        (copyfiles (source "SYS:WBStartup/retinaemu") (dest "SYS:Storage/MacroSystemZ3") (infos))
  733.   )   
  734.  
  735.  
  736.  
  737.    (if (< #REG 3) 
  738.      (
  739.        (complete 25)
  740.        (if (> (exists ("devs:monitors/RetinaZ3")) 0)
  741.            (copyfiles (source "devs:monitors/RetinaZ3") (dest "SYS:Storage/MacroSystemZ3") (infos))
  742.        )  
  743.       
  744.      )
  745.    )
  746.  
  747.   )
  748. )
  749.   
  750.  
  751. ;**
  752.  
  753.  
  754.  )
  755. )
  756.  
  757. ;******************************************************************************** 
  758. ; Delete Old files from system
  759. ;********************************************************************************
  760. (complete 50)
  761. (if (= board 0) ;PICASSO
  762.  (
  763.   (delete "sys:Expansion/village.library")
  764.   (delete "sys:Expansion/village.library.info")
  765.   (if (< #REG 3)
  766.      (
  767.        (delete "Devs:Monitors/Picasso")
  768.        (delete "Devs:Monitors/Picasso.info")
  769.      )
  770.   )
  771.  
  772.  )
  773. )
  774.  
  775.  
  776. (if (= board 1) ;SPECTRUM
  777.  (
  778.   (delete "SYS:WBStartup/EGSAmigaDriver")
  779.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  780.   (delete "SYS:WBStartup/E.S.P.")
  781.   (delete "SYS:WBStartup/E.S.P..info")
  782.   (delete "DEVS:Monitors/EGS")
  783.   (delete "DEVS:Monitors/EGS.info")
  784.   (if (< #REG 3) 
  785.      (
  786.        (delete "Devs:Monitors/Spectrum")
  787.        (delete "Devs:Monitors/Spectrum.info")
  788.      )
  789.   )     
  790.  )
  791. )
  792.  
  793.  
  794. (if (= board 2) ; PICCOLO
  795.  (
  796.   (delete "SYS:WBStartup/EGSAmigaDriver")
  797.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  798.   (delete "SYS:WBStartup/E.S.P.")
  799.   (delete "SYS:WBStartup/E.S.P..info")
  800.   (delete "DEVS:Monitors/EGS")
  801.   (delete "DEVS:Monitors/EGS.info")
  802.   (delete "SYS:WBStartup/PicoRetarget")
  803.   (delete "SYS:WBStartup/PicoRetarget.info")
  804.   (if (< #REG 3) 
  805.      (
  806.       (delete "Devs:Monitors/Piccolo")
  807.       (delete "Devs:Monitors/Piccolo.info") 
  808.      )
  809.   )     
  810.  )
  811. )
  812.  
  813.  
  814. (if (= board 3) ;DOMINO
  815.  (
  816.   (if (< #REG 3) 
  817.      (
  818.        (delete "DEVS:Monitors/Domino")
  819.        (delete "DEVS:Monitors/Domino.info")
  820.      )
  821.   ) 
  822.  )
  823. )
  824.  
  825.  
  826.  
  827. (if (= board 4) ;RetinaZ3
  828.  (
  829.   (delete "Libs:retina.library")
  830.   (delete "SYS:WBStartup/retinaemu")
  831.   (delete "SYS:WBStartup/retinaemu.info")
  832.  
  833.   (if (< #REG 3) 
  834.      (
  835.        (delete "DEVS:Monitors/RetinaZ3")
  836.        (delete "DEVS:Monitors/RetinaZ3.info")
  837.      )
  838.   ) 
  839.  )
  840. )
  841.  
  842.  
  843.  
  844. ;******************************************************************************** 
  845. ; Make ENVARC: for boards and copy files
  846. ;********************************************************************************
  847. (if (= #PAY 1)
  848. (
  849.  
  850.  
  851. (if (= board 0)
  852.  (
  853.   (run "makedir envarc:cybergraphics")
  854.   (run "makedir envarc:cybergraphics/Picasso")
  855.   (run "ConvPicassoModes")
  856.  )
  857. )
  858.  
  859.  
  860.  
  861. (if (= board 1)
  862.  (
  863.   (run "makedir envarc:cybergraphics")
  864.   (run "makedir envarc:cybergraphics/Spectrum")
  865.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Spectrum") (all) ) 
  866.  )
  867. )
  868.  
  869.  
  870. (if (= board 2)
  871.  (
  872.   (run "makedir envarc:cybergraphics")
  873.   (run "makedir envarc:cybergraphics/Piccolo")
  874.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Piccolo") (all) ) 
  875.  )
  876. )
  877.  
  878.  
  879. (if (= board 3)
  880.  (
  881.   (run "makedir envarc:cybergraphics")
  882.   (run "makedir envarc:cybergraphics/Domino")
  883.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Domino") (all) ) 
  884.  )
  885. )
  886.  
  887.  
  888. (if (= board 4)
  889.  (
  890.   (run "makedir envarc:cybergraphics")
  891.   (run "makedir envarc:cybergraphics/RetinaZ3")
  892.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/RetinaZ3") (all) ) 
  893.  )
  894. )
  895.  
  896.  
  897. )
  898. )
  899.  
  900. ;******************************************************************************** 
  901. ; Copy over new Cyber files to system
  902. ;********************************************************************************
  903. (copylib (source "libs/cybergraphics.library")  (dest "libs:"))
  904. (copylib (source "libs/cyberintuition.library")  (dest "libs:"))
  905. (copylib (source "libs/cyberlayers.library")  (dest "libs:"))
  906. (copylib (source "libs/vilintuisup.library")  (dest "libs:")) 
  907.  
  908.  
  909. (if (< #REG 3) 
  910.      (
  911.        
  912.        (if (= board 0)
  913.           (copyfiles (source "devs/monitors/Picasso")  (dest "devs:monitors") (infos) )    
  914.        )
  915.  
  916.        (if (= board 1)
  917.           (copyfiles (source "devs/monitors/Spectrum")  (dest "devs:monitors") (infos) )    
  918.        )
  919.  
  920.        (if (= board 2)
  921.           (copyfiles (source "devs/monitors/Piccolo")  (dest "devs:monitors") (infos) )    
  922.        )
  923.  
  924.        (if (= board 3)
  925.           (copyfiles (source "devs/monitors/Domino")  (dest "devs:monitors") (infos) )    
  926.        )
  927.  
  928.        (if (= board 4)
  929.           (copyfiles (source "devs/monitors/RetinaZ3")  (dest "devs:monitors") (infos) )    
  930.        )
  931.       
  932.      )
  933. )
  934.  
  935. ;******************************************************************************** 
  936. ; Ask which modefile to install (in case of piccolo or spectrum)
  937. ;********************************************************************************
  938. (if (= #PAY 1)
  939. (
  940.  
  941. (if (> board 0)
  942.  (
  943.  
  944.    (set modefile (askchoice    (choices #15KHZ #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ)
  945.                            (prompt #ask-MODEFILE)
  946.                            (help   #ask-MODEFILE)
  947.                          (default 0)
  948.              )
  949.    )
  950.  
  951.    (if (= board 1)
  952.       (
  953.         (if (= modefile 0) (run "setenv Cybergraphics/SpectrumMonitor Monitor-15khz") )
  954.         (if (= modefile 1) (run "setenv Cybergraphics/SpectrumMonitor Monitor-31khz") )
  955.         (if (= modefile 2) (run "setenv Cybergraphics/SpectrumMonitor Monitor-35khz") )
  956.         (if (= modefile 3) (run "setenv Cybergraphics/SpectrumMonitor Monitor-38khz") )
  957.         (if (= modefile 4) (run "setenv Cybergraphics/SpectrumMonitor Monitor-48khz") ) 
  958.         (if (= modefile 5) (run "setenv Cybergraphics/SpectrumMonitor Monitor-57khz") )
  959.         (if (= modefile 6) (run "setenv Cybergraphics/SpectrumMonitor Monitor-64khz") )
  960.         (copyfiles (source "env:Cybergraphics/SpectrumMonitor")  (dest "envarc:Cybergraphics") )    
  961.       )
  962.    )
  963.  
  964.    (if (= board 2)
  965.       (
  966.         (if (= modefile 0) (run "setenv Cybergraphics/PiccoloMonitor Monitor-15khz") )
  967.         (if (= modefile 1) (run "setenv Cybergraphics/PiccoloMonitor Monitor-31khz") )
  968.         (if (= modefile 2) (run "setenv Cybergraphics/PiccoloMonitor Monitor-35khz") )
  969.         (if (= modefile 3) (run "setenv Cybergraphics/PiccoloMonitor Monitor-38khz") )
  970.         (if (= modefile 4) (run "setenv Cybergraphics/PiccoloMonitor Monitor-48khz") )
  971.         (if (= modefile 5) (run "setenv Cybergraphics/PiccoloMonitor Monitor-57khz") )
  972.         (if (= modefile 6) (run "setenv Cybergraphics/PiccoloMonitor Monitor-64khz") )
  973.         (copyfiles (source "env:Cybergraphics/PiccoloMonitor")  (dest "envarc:Cybergraphics") )
  974.       )
  975.    )
  976.  
  977.    (if (= board 3)
  978.       (
  979.         (if (= modefile 0) (run "setenv Cybergraphics/DominoMonitor Monitor-15khz") )
  980.         (if (= modefile 1) (run "setenv Cybergraphics/DominoMonitor Monitor-31khz") )
  981.         (if (= modefile 2) (run "setenv Cybergraphics/DominoMonitor Monitor-35khz") )
  982.         (if (= modefile 3) (run "setenv Cybergraphics/DominoMonitor Monitor-38khz") )
  983.         (if (= modefile 4) (run "setenv Cybergraphics/DominoMonitor Monitor-48khz") )
  984.         (if (= modefile 5) (run "setenv Cybergraphics/DominoMonitor Monitor-57khz") )
  985.         (if (= modefile 6) (run "setenv Cybergraphics/DominoMonitor Monitor-64khz") )
  986.         (copyfiles (source "env:Cybergraphics/DominoMonitor")  (dest "envarc:Cybergraphics") )
  987.       )
  988.    )
  989.  
  990.  
  991.    (if (= board 3)
  992.       (
  993.         (if (= modefile 0) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-15khz") )
  994.         (if (= modefile 1) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-31khz") )
  995.         (if (= modefile 2) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-35khz") )
  996.         (if (= modefile 3) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-38khz") )
  997.         (if (= modefile 4) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-48khz") )
  998.         (if (= modefile 5) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-57khz") )
  999.         (if (= modefile 6) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-64khz") )
  1000.         (copyfiles (source "env:Cybergraphics/RetinaZ3Monitor")  (dest "envarc:Cybergraphics") )
  1001.       )
  1002.    )
  1003.    
  1004.  
  1005.  )
  1006. )
  1007.  
  1008.  
  1009. )
  1010. )
  1011.  
  1012.  
  1013. ;******************************************************************************** 
  1014. ;
  1015. ;Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  1016. ;
  1017. ;********************************************************************************
  1018. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1019.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1020.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1021.       )
  1022. )
  1023.  
  1024. (if (< (exists ("EnvArc:CyberGraphics/PicassoSpectrum")) 1)
  1025.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1026.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1027.       )
  1028. )
  1029.  
  1030. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1031.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1032.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1033.       )
  1034. )
  1035.  
  1036. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1037.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1038.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1039.       )
  1040. )
  1041.  
  1042.  
  1043. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1044.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1045.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1046.       )
  1047. )
  1048.  
  1049.  
  1050. ;******************************************************************************** 
  1051. ; ASK to set the 2 ENV modes!
  1052. ;********************************************************************************
  1053. (if (= #PAY 1)
  1054. (
  1055.  
  1056.  
  1057. (set cpup2c   (askchoice    (choices "Yes" "No")
  1058.                            (prompt #cpup2c)
  1059.                            (help   #cpup2c)
  1060.                          (default 0)
  1061.           )
  1062. )
  1063.  
  1064.  
  1065. (if (= cpup2c 0)
  1066.    (
  1067.      (run "setenv cybergraphics/CPUP2C 1")
  1068.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )
  1069.    )
  1070. )
  1071.  
  1072.  
  1073. (set HIRESCRSR (askchoice    (choices "Yes" "No")
  1074.                            (prompt #hirescrsr)
  1075.                            (help   #hirescrsr)
  1076.                          (default 0)
  1077.            )
  1078. )
  1079.  
  1080.  
  1081. (if (= HIRESCRSR 0)
  1082.    (
  1083.      (run "setenv cybergraphics/HIRESCRSR 1")
  1084.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") )
  1085.    )
  1086. )
  1087.  
  1088.  
  1089.  
  1090.  
  1091. )
  1092. )
  1093.  
  1094.  
  1095. ;******************************************************************************** 
  1096. ; ReG version with all the drivers!
  1097. ;********************************************************************************
  1098.    
  1099.    (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics"
  1100.                                        "Real3D Library" "ADPro 2.5.0" "ImageFX" )
  1101.                     (prompt #ask-driver)
  1102.                   (help   #ask-driver)
  1103.                   (default 0)
  1104.           )
  1105.    )
  1106.  
  1107.  
  1108.   
  1109.    (if (IN RegDriver 0)
  1110.       (
  1111.        (copyfiles (prompt #where-MC4D)
  1112.               (source "drivers/cinema4d/cinemaausgabe.library")
  1113.               (dest   (askdir (prompt #where-MC4D)
  1114.                       (help   #where-MC4D)
  1115.                       (default "libs:")
  1116.                   )
  1117.               )
  1118.               (optional) 
  1119.        )
  1120.       )
  1121.    )
  1122.  
  1123.  
  1124.    (if (IN RegDriver 1)
  1125.       (
  1126.        (copyfiles (prompt #where-PHOTOW)
  1127.               (source "drivers/photoworx/cyber.viewer")
  1128.               (dest   (askdir (prompt #where-PHOTOW)
  1129.                       (help   #where-PHOTOW)
  1130.                       (default "Work:")
  1131.                   )
  1132.               )
  1133.               (optional) 
  1134.        )
  1135.       )
  1136.    )
  1137.  
  1138.  
  1139.    (if (IN RegDriver 2)
  1140.       (
  1141.        (copyfiles (prompt #where-PHOTOG)
  1142.               (source "drivers/photogenics/cybergraphics.gio")
  1143.               (dest   (askdir (prompt #where-PHOTOG)
  1144.                       (help   #where-PHOTOG)
  1145.                       (default "Work:")
  1146.                   )
  1147.               )
  1148.               (optional) 
  1149.        )
  1150.       )
  1151.    )
  1152.  
  1153.  
  1154.    (if (IN RegDriver 3)
  1155.       (
  1156.        (copyfiles (prompt #where-REAL)
  1157.               (source "drivers/real3d/cybergfx_r3d.library")
  1158.               (dest   (askdir (prompt #where-REAL)
  1159.                       (help   #where-REAL)
  1160.                       (default "libs:")
  1161.                   )
  1162.               )
  1163.               (optional) 
  1164.        )
  1165.       )
  1166.    )
  1167.  
  1168.  
  1169.    (if (IN RegDriver 4)
  1170.       (
  1171.        (copyfiles (prompt #where-ADPRO)
  1172.               (source "drivers/adpro/CyBERgraphics")
  1173.               (dest   (askdir (prompt #where-ADPRO)
  1174.                       (help   #where-ADPRO)
  1175.                       (default "ADPRO:Savers2")
  1176.                   )
  1177.               )
  1178.               (optional) 
  1179.        )
  1180.       )
  1181.    )
  1182.  
  1183.    
  1184.    (if (IN RegDriver 5)
  1185.       (
  1186.        (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) 
  1187.        (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) 
  1188.        (copyfiles (prompt #where-IFX)
  1189.               (source (cat "drivers/ImageFX/" IFXVer))
  1190.               (dest   (askdir (prompt #where-IFX)
  1191.                       (help   #where-IFX)
  1192.                       (default "ImageFX:Modules/Render")
  1193.                   )
  1194.               )
  1195.               (optional) 
  1196.        )
  1197.       )
  1198.    )
  1199.  
  1200.  
  1201.  
  1202. ;******************************************************************************** 
  1203. ; Ask to install DEVDOCS, Versions, Order, guide
  1204. ;********************************************************************************
  1205. (set ToDo       (askoptions (choices #order #guide #devdocs #versions)
  1206.                 (prompt #wishtoinstall)
  1207.                 (help #wishtoinstall)
  1208.                 (default 63)
  1209.         )
  1210. )
  1211.  
  1212. ;******************************************************************************** 
  1213. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  1214. ;********************************************************************************
  1215. (if (<> ToDo 0)
  1216.  (
  1217.  
  1218.   (set CyberDrawer (askdir (prompt #WhereStuffDir)
  1219.                (help   #WhereStuffDir)
  1220.                (default "Work:CyberGraphics")
  1221.            )  
  1222.   )
  1223.  
  1224.  
  1225.   (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2)
  1226.       (makedir (tackon CyberDrawer "CyberGraphics") (infos))
  1227.         
  1228.   )
  1229.     
  1230.  
  1231.   (set where (tackon CyberDrawer "CyberGraphics"))
  1232.   (set @default-dest CyberDrawer)
  1233.  
  1234. ;******************************************************************************** 
  1235. ; COPY selected stuff!
  1236. ;********************************************************************************
  1237.   (if (IN ToDo 0)
  1238.      (
  1239.       (if (= #PAY 0)
  1240.          (
  1241.           (if (= LAN 0) (copyfiles (source "Bestellformular")  (dest where) (infos) ) )
  1242.           (if (= LAN 1) (copyfiles (source "Orderform")  (dest where) (infos) ) )  
  1243.          )
  1244.       )
  1245.   
  1246.      )
  1247.   )
  1248.  
  1249.   (if (IN ToDo 1) 
  1250.    (  
  1251.  
  1252.     (if (= LAN 0)  
  1253.       (copyfiles (source "CyBERgfx_D.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  1254.     )
  1255.    
  1256.     (if (= LAN 1)
  1257.       (copyfiles (source "CyBERgfx_E.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  1258.     )        
  1259.  
  1260.    )
  1261.   )
  1262.  
  1263.  
  1264.  
  1265.   (if (IN ToDo 2) 
  1266.    (  
  1267.      (if (< (exists (tackon where "DevDocs")) 2)
  1268.           (makedir (tackon where "DevDocs") (infos))
  1269.      )
  1270.      (copyfiles (source "devdocs")  (dest (tackon where "DevDocs")) (all) ) 
  1271.    )
  1272.   )
  1273.  
  1274.  
  1275.  
  1276.   (if (IN ToDo 3) 
  1277.    (  
  1278.      (copyfiles (source "Versions")  (dest where) (infos) )    
  1279.    )
  1280.   )
  1281.  
  1282.  
  1283.   
  1284.  
  1285.  
  1286.  )
  1287. )
  1288.  
  1289. ;******************************************************************************** 
  1290. ; Move over thanks text
  1291. ;********************************************************************************
  1292. (if (= #PAY 1)
  1293.          (
  1294.            (set where       (askdir (prompt #WhereReadME)
  1295.                      (help   #WhereReadME)
  1296.                   (default CyberDrawer)
  1297.                     )  
  1298.            )
  1299.           
  1300.           (if (= LAN 0) (copyfiles (source "LiesMich")  (dest CyberDrawer) (infos) ) )
  1301.           (if (= LAN 1) (copyfiles (source "Readme")  (dest CyberDrawer) (infos) ) )  
  1302.          )
  1303. )
  1304.  
  1305.  
  1306. ;******************************************************************************** 
  1307. ; How to get the REAL version and what coming!
  1308. ;********************************************************************************
  1309.  
  1310. (if (= #PAY 0)
  1311.   (message #Restrictions)
  1312. )
  1313. (message #Comming)
  1314. (message #Updates)
  1315. (message #REGtext)
  1316.  
  1317.  
  1318.  
  1319.